(set-keyboard-coding-system): Set

keyboard-coding-system.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c747b9319ad62864e2772d8a18ce1c387ed3462..a80a5a00f90195ab24bac0c52f494b9b7686507e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2001-07-31  Gerd Moellmann  <gerd@gnu.org>
 
+       * international/mule.el (set-keyboard-coding-system): Set
+       keyboard-coding-system.
+
        * smerge-mode.el (smerge-mode): Check if `font-lock-mode' is bound
        before accessing it.
 

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 5d86f69bdead460dfb2ebea0274452ca30538c16..5609d5bffeb2ccd2158291842ef8dd1a1baddaa5 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1136,6 +1136,7 @@ or by the previous use of this command."
   (if coding-system
       (setq default-keyboard-coding-system coding-system))
   (set-keyboard-coding-system-internal coding-system)
+  (setq keyboard-coding-system coding-system)
   (encoded-kbd-mode (if coding-system 1 0)))
 
 (defcustom keyboard-coding-system nil